cp/m macro ASSEM 2.0 



#001 



*** 



Cold Boot Loader for CP/M Ver. 2.2 *** 



****************************************************** 
* 

* CP/M VERS 2.2 COLD START LOADER. 
* 

* WRITTEN BY BOBBY DALE GIFFORD. 

* 3/17/80 



*********** 
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THE FOLLOWING ROUTINES WILL BOOT CP/M FROM THE DISK JOCKEY 
2D (ALL REVS AND MODELS), OR FROM THE DISK JOCKEY HARD 
DISK CONTROLLER. 

THE COLD BOOT LOADER (SECTOR 1, TRACK 0) IS LOADED 
INTO THE RAM OF THE CONTROLLER BY THE COLD BOOT ROUTINE OF 
THE FIRMWARE. THE FIRST THING THE BOOT DOES IS TO LOAD INTO 
THE CONTROLLER RAM, A VERSION OF THE DISK JOCKEY 2D FIRMWARE. 
FROM THEN ON, ALL CALLS TO THE FIRMWARE WILL ACTUALLY BE 
DIRECTED TO THE DISK JOCKEY RAM. THE NEXT PROCESS IS TO LOAD 
IN A BOOT ROUTINE WHICH CAN LOAD IN ALL OF CP/M. THIS IS 
DONE BY DETERMINING THE SIZE OF THE SECTORS ON TRACK 1, AND 
USING THIS INFORMATION TO LOAD IN THE PROPER BOOT INTO 80H. 

THE FOLLOWING TABLES EXPLAIN THE ORDER OF SECTOR LOADING FOR 

EACH OF THE DIFFERENT SECTOR SIZES. AN ENTRY OF 

REPRESENTS A WRAP BACK AROUND (NEGATIVE DMA ADJUSTMENT) . 
AN ENTRY FLAGGED WITH ASTRICKS REPRESENTS A. PARTIAL SECTOR 
LOAD. 



ALL SECTOR SIZES: 
TRACK SECTOR 1 
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THE FOLLOWING DEPEND ON THE SECTOR SIZE, ALL SECTORS ARE FROM 
TRACK 1. 
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256 

SEC ADDRESS ^ 

1 | 2C00H $f*M 

3 2E00H 



512 

SEC 

1 

3 
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i 2C00H £W 
/ 3000H 



1024 
SEC 

l f $rjtf 
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2C00H * 
3400H * 
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#002 



0038 
9000 
B700 
CD00 
000A 



0000 = 



0001 = 



* 


5 


3000H 


* 


7 


3200H 


* 


9 | 


3400H 


* 


11 \ 


3600H 


* 


13 


3800H 


* 


15 


3A00H 


* 


17 


3C00H 


* 


19 


3E00H 


* 


21 


4000H 


* 


23 


4200H 


* 


2 5 W4400H 


* 






* 


2 <£2D00H 


* 


4 


2F00H 


* 


6 


3100H 


* 


8 


3300H 


* 


10 


3500H 


* 


12 


3700H 


* 


14 


3900H 


* 


16 


3B00H 


* 


18 


3D00H 


* 


20 


3F00H 


* 


22 


4100H 


* 


24 


4300H 


* 
* 


26 


4500H--A 


* 
* 




1 


* 






* 






* 
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* 






**************** 



*** Cold Boot 

5 

7 

9 

11 

13 



joader for CP/M Ver. 2.2 *** 



{/ 



3400H 
3800H 
3C00H 
4000H 

4400H e^p, 
j&tf 



** 



5^ 



3C00H 
4400H 



2 
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3A00H 
3E00H 
\J/ 4200H 



2 Z- 
4 4 
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4000H 



DISCUS M10, M20, M26 



** 






3 
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E400H (IF 2D IS PRESENT) 
E600H (IF 2D IS PRESENT) 
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********* 



TITLE '*** Cold Boot Loader for CP/M Ver. 2.2 **** 



MSIZE EQU 
BIAS EQU 
CCP EQU 
BIQS EQU 
RETRIES EQU 



56 ;MEMORY SIZE OF TARGET CP/M 

(MSIZE-20)*1024 ? MEMORY- OFFSET FROM 20K SYSTEM 
2700H-HBIAS ; CONSOLE COMMAND PROCESSOR 
CCP+1600H ;CBIOS ADDRESS 
10 ;MAXIMUM # OF DISK RETRIES 




***************************************************************** 
* * 



* 
* 



* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. 

* * 
***************************************,****************,* ********* 



FIRST 



MAXHD 



EQU 



EQU 







= FLOPPIES' ARE A-D DRIVES AND 

HARD DISK ARE E-P 

1 = HARD DISKS ARE A-L DRIVES AND 

FLOPPIES ARE M-P 
SET TO NUMBER OF HARD DISKS 



Sfi Sfa 







7O0 i 
? 






7V^ 






CP/M MACRO ASSEM 2.0 #003 *** Cold Boot Loader for CP/M Ver. 2.2 *** 

0002 = MAXFLOP EQU 2 ?SET TO NUMBER OF FLOPPIES 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK IF WANTED. * 

* * 

***************************************************************** 

FIRST ;WANT HARD DISK INCLUDED ? 

HARD DISK CONTROLLER 

HARD DISK STATUS 

HARD DISK CONTROL 

HARD DISK DATA 

HARD DISK FUNCTION 

HARD DISK COMMAND 

HARD DISK RESULT 

RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 





IF 


(MAXHD NE 0) 


AND 


HDORG 


EQU 


50H 




HDSTAT 


EQU 


HDORG 




HDCNTL 


EQU 


HDORG 




HDDATA 


EQU 


HDORG+3 




HDFUNC 


EQU 


HDORG+2 




HDCMND 


EQU 


HDORG+1 




HDRESLT 


EQU 


HDORG+1 




RETRY 


EQU 


2 




TKZ 


EQU 


1 




OPDONE 


EQU 


2 




COMPLT 


EQU 


4 




TMOUT 


EQU 


8 




WFAULT 


EQU 


10H 




DRVRDY 


EQU 


20H 




INDX 


EQU 


40H 




PSTEP 


EQU 


4 




NSTEP 


EQU 


0FBH 




HDRLEN 


EQU 


4 




SECLN 


EQU 


512 




WENABL 


EQU 


0FH 




WRESET 


EQU 


0BH 




SCENBL 


EQU 


5 




DSKCLK 


EQU 


7 




MDIR 


EQU 


0F7H 




NULL 


EQU 


0FCH 




IDBUFF 


EQU 







ISBUFF 


EQU 


8 




RSECT 


EQU 


1 




WSECT 


EQU 

ENDIF 


5 





°^j 4 



0*T )~A HD 



(H-J> r#) 



***************************************************************** 
* * 

* COLD BOOT LOADER COMMON TO ALL SECTOR SIZES. * 

* THIS SECTOR IS LOADED INTO MEMORY AT E700H IN A STANDARD * 

* CONFIGURATION. IT IS RESPONSIBLE FOR READING MOST OF TRACK * 

* INTO MEMORY ON COLD BOOTS. * 

* * 

****************************************************** * * ********* 



E000 = 
E400 = 
E400 = 



IF 
ORIGIN EQU 
DJRAM EQU 
DJBOOT EQU 

ENDIF 



MAXFLOP NE 
0E000H 
ORIGIN+400H 
DJRAM 



IF 



(MAXFLOP NE 0) 



cp/m macro ASSEM 2.0 



#004 



2900 



$ 

& 



E02D = 
E012 = 
E027 = 
E00F = 
E00C = 
E009 = 
E015 = 
E02A = 

E000 

0700 # 



E000 
E003 
E004 
E005 
E006 
E007 
E009 
E00C 
E00F 
E011 
E014 
E015 
E018 
E019 
E01B 
E01E 
E01F 
E020 
E022 
E025 
E028 
E029 
E02B 
E02E 
E031 
E032 
E035 
E036 
E037 
E03A 
E03D 
E03E 
E041 
E044 
E045 
E048 
E049 



3180E7 
3E06 

3C 

3C 

FE1B 

CA00BC 

DA11E7 

D613 

3204E7 

4F 

CD0FE0 

2100BB 

110001 

19 

7C 

FEC0 

DA32E7 

C22EE7 

7D 

FE80 

DA32E7 

1180F6 

19 

2219E7 

44 

4D 

CD12E0 

01000A 

C5 

CD0CE0 

CD15E0 

CI 

D203E7 

05 

C23DE7 



OFFSETB EQU 
ELSE 

OFFSETB EQU 

ENDIF 



PUTDEN 

PUTDMA 

GETSTAT 

PUTSEC 

PUTTRK 

PUTHOM 

DOREAD 

BOTERR 



DIFF 



IF 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

ORG 

SET 



LXI 

FIRMLOD MVI 

NEWSEC EQU 
INR 
INR 
CPI 
JZ 
JC 
SUI 

NOWRAP STA 
MOV 
CALL 
LXI 

NEWDMA EQU 
LXI 
DAD 
MOV 
CPI 
JC 
JNZ 
MOV 
CPI 
JC 

WRP LXI 
DAD 

NOWRP SHLD 
MOV 
MOV 
CALL 
LXI 

FREAD PUSH 
CALL 
CALL 
POP 
JNC 
DCR 
JNZ 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 
900H-ORIGIN 





NOT FIRST 

ORIGIN+02DH 

ORIGIN+12H 

ORIGIN+27H 

ORIGIN+0FH 

ORIGIN+0CH 

ORIGIN+9H 

ORIGIN+15H 

ORIGIN+2AH 

ORIGIN 

ORIGIN+700H-$ 



SET DENSITY 
DISK JOCKEY 
DISK STATUS 
DISK JOCKEY 
DISK JOCKEY 
DISK JOCKEY 
DISK JOCKEY 
DISK JOCKEY 



ROUTINE ON DISK JOCKEY 2D 

2D SET DMA ADDRESS ROUTINE 

ROUTINE ON DISK JOCKEY 2D 

2D SET SECTOR ROUTINE 

2D SET TRACK ROUTINE 

2D TRACK SEEK 

2D READ ROUTINE 

2D FLASH ERROR LIGHT ROUTINE 



DISK JOCKEY 2D RAM 

OFFSET TO BOOT LOADER ADDRESS 



; PREVIOUS SECTOR # 

; UPDATE SECTOR # 

;TEST IF ALL DONE 

;TEST IF WRAP AROUND 

;SAVE THE UPDATED SECTOR # 

;SET UP THE SECTOR 

; PREVIOUS DMA ADDRESS 

; UPDATE DMA ADDRESS 



SP,STAC+DIFF 

A # 6 

$-1 

A 

A 

27 

CCP+500H 

NOWRAP+DIFF 

19 

NEWSEC+DIFF 

C,A 

PUTSEC 

H,CCP+400H 

$-2 

D,100H 

D 

A,H 

(CCP+980H)/100H 

NOWRP+DIFF 

WRP+DIFF 

A,L 

(CCP+980H) MOD 100H 

NOWRP+DIFF 

D,-980H 

D 

NEWDMA+DIFF ;SAVE THE UPDATED DMA ADDRESS 

B,H 

C,L 

PUTDMA ? SET UP THE NEW DMA ADDRESS 

B,RETRIES*100H+0;MAXIMUM # OF ERRORS 

B 

PUTTRK ;SET UP THE PROPER TRACK 

DOREAD , ; READ THE SECTOR 

B 

FIRMLOD+DIFF ; CONTINUE IF NO ERROR 

B ' * 

FREAD+DIFF ;KEEP TRYING IF ERROR 



CP/M MACRO ASSEM 2.0 #005 *** Cold Boot Loader for CP/M Ver. 2.2 *** 



E04C C32AE0 

E04F 

E080 = 



STAC 



JMP BOTERR ;TO MANY ERRORS, FLASH THE LIGHT 

DS 80H-($ MOD 80H) 
EQU $ 



************************************************************** * * * 

* * 

* THE FOLLOWING EQUATES RELATE TO THE THINKER TOYS 2D CONTROLLER* 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0, 1, 3, 3.1, 4. * 

* * 

***************************************************************** 



E403 
E405 
E409 
E40C 
E40F 
E412 
E415 
E418 
E41B 
E424 
E427 
E42A 
E42D 
E421 
E430 



DJCIN 


EQU 


DJRAM+3H ; 


DISK 


JOCKEY 


DJCOUT 


EQU 


DJRAM+6H ; 


DISK 


JOCKEY 


DJHOME 


EQU 


DJRAM+9H ; 


DISK 


JOCKEY 


DJTRK 


EQU 


DJRAM+0CH ; 


DISK 


JOCKEY 


DJSEC 


EQU 


DJRAM+0FH 


DISK 


JOCKEY 


DJDMA 


EQU 


DJRAM+012H ; 


•DISK 


JOCKEY 


DJREAD 


EQU 


DJRAM+15H 


DISK 


JOCKEY 


DJWRITE 


EQU 


DJRAM+18H 


•DISK 


JOCKEY 


DJSEL 


EQU 


DJRAM+1BH 


•DISK 


JOCKEY 


DJDMAST 


EQU 


DJRAM+24H 


•DISK 


JOCKEY 


DJSTAT 


EQU 


DJRAM+27H 


•DISK 


JOCKEY 


DJERR 


EQU 


DJRAM+2AH 


•DISK 


JOCKEY 


DJDEN 


EQU 


DJRAM+2DH 


•DISK 


JOCKEY 


DJTSTAT 


EQU 


DJRAM+21H 


•DISK 


JOCKEY 


DJSIDE 


EQU 


DJRAM+30H 


•DISK 


JOCKEY 



2D CHARACTER INPUT ROUTINE 

2D CHARACTER OUTPUT ROUTINE 

2D TRACK ZERO SEEK 

2D TRACK SEEK ROUTINE 

2D SET SECTOR ROUTINE **■ — 

2D SET DMA ADDRESS 

2D READ ROUTINE 

2D WRITE ROUTINE 

2D SELECT DRIVE ROUTINE 

2D DMA STATUS 

2D STATUS ROUTINE 

2D ERROR, BLINK LED 

2D SET DENSITY ROUTINE 

2D TERMINAL STATUS ROUTINE 

2D SET SIDE ROUTINE 



***************************************************************** 

* * 

* THE FOLLOWING THREE SECTORS OF CODE RESIDE AT 80H. THERE IS * 

* ONE SECTOR FOR EACH OF THE POSSIBLE SECTOR SIZES (256,512, * 

* 1024) . EACH SECTOR IS RESPONSIBLE FOR PERFORMING A COLD BOOT * 

* FOR THE SPECIFIED SECTOR SIZE. * 

* * 

***************************************************************** 



2000 # 



DIFF 



SET 



80H-$ 



7? 



E080 


310001 


LXI 


SP,CSTK256+DIFF ; 


E083 


0101 1A 


LXI 


B,26*100H+1 


E086 


C5 


CLOD256 PUSH 


B ; 


E087 


CD0FE4 


CALL 


DJSEC ; 


E03A 


2100BA 


LXI 


H,CCP+300H ; 


E08B 


= 


CDMA256 EQU 


$-2 ; 


E08D 


110002 


LXI 


D,200H 


E090 


19 


DAD 


D ; 


E091 


228B00 


SHLD 


CDMA256+DIFF ; 


E094 


44 


MOV 


B,H ; 


E095 


4D 


MOV 


C,L 


E096 


CD12E4 


CALL 


DJDMA ; 


E099 


CDB600 


CALL 


CRD256+DIFF 


E09C 


CI 


POP 


B 


E09D 


05 


DCR 


B 



SET UP STACK AT END OF THIS SECTOR 

B = SECTOR COUNT, C = SECTOR # 

SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B - COUNT, C ~ NUMBER 
UPDATE SECTOR COUNT 



CP/M MACRO ASSEM 2.0 



#006 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E09E CA00CD 
E0A1 3E02 
E0A3 81 
E0A4 4F 
E0A5 FE1B 
E0A7 DA8600 
E0AA D619 
E0AC 4F 
E0AD 2100BB 
E0B0 228B00 
E0B3 C38600 



JZ 


BIOS 


MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


27 


JC 


CLOD256+DIFF 


SUI 


25 


MOV 


C,A 


LXI 


H, CCP+400H 


SHLD 


CDMA256+DIFF 


JMP 


CLOD256+DIFF 



ALL DONE ? 

SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 

PUT NEW SECTOR BACK INTO C 

PAST THE END OF THE TRACK ? 

TAKE JUMP IF NOT PAST END OF TRACK 

PERFORM A NEGATIVE SECTOR ADJUSTMENT 

PUT NEW SECTOR IN C 

NEGATIVE DMA ADJUSTMENT 

SAVE THE NEW DMA ADDRESS 

CONTINUE READING 



***************************************************************** 

* * 

* CRD256 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



SAVE ERROR COUNT 

INITIALIZE THE TRACK 

ATTEMPT THE READ 

RESTORE THE ERROR COUNT 

RETURN IF NO ERROR 

UPDATE ERROR COUNT 

TRY AGAIN IF NOT TO MANY ERRORS 

GO AND FLASH THE LIGHT ON CONTROLLER 



E0B6 


01010A 


CRD256 


LXI 


B,RETRIES*100H+1 


E0B9 


C5 


CR256 


PUSH 


B ; 


E0BA 


CD0CE4 




CALL 


DJTRK ; 


E0BD 


CD15E4 




CALL 


DJREAD ; 


E0C0 


CI 




POP 


B ; 


E0C1 


D0 




RNC 




E0C2 


05 




DCR 


B 


E0C3 


C2B900 




JNZ 


CR256+DIFF 


E0C6 


C32AE4 




JMP 


DJERR ; 


E0C9 






DS 


80H-($ MOD 80H) 


E100 


= 


CSTK256 


EQU 


$ 



***************************************************************** 

* * 

* THE NEXT LOADS CP/M FROM A 512 BYTE SECTOR DISKETTE. * 

* * 

***************************************************************** 





1F80 


# 


DIFF 


SET 
LXI 


80H-$ 


I 


E100 


310001 


SP,CSTK512+DIFF 


ft 


E103 


01010D 




LXI 


B,13*100H+1 


3? 


E106 


C5 


CLOD512 


PUSH 


B 


E107 


CD0FE4 




CALL 


DJSEC 


E10A 


2100B8 




LXI 


H,CCP+100H 




E10B 


= 


CDMA512 


EQU 


$-2 


• 


E10D 


110004 




LXI 


D,400H 




E110 


19 




DAD 


D 




Elll 


228B00 




SHLD 


CDMA512+DIFF 




E114 


44 




MOV 


B,H 




E115 


4D 




MOV 


C,L 




E116 


CD12E4 


• , ' r , ■ , 


CALL 


DJDMA 




E119 


CDB600 




CALL 


CRD512+DIFF 




E11C 


CI 




POP 


B 




E11D 


05 




DCR 


B 



SET UP STACK AT END OF THIS SECTOR 

B = SECTOR COUNT, C = SECTOR # 

SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

-;SET THE DMA ADDRESS 

; ATTEMPT A READ 

; RECOVER SECTOR NUMBER AND COUNT 

; Q - COUNT* C * NUMBER 

; UPDATE SECTOR COUNT 



cp/m macro ASSEM 2.0 



#007 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E11E 


CA00CD 


E121 


3E02 


E123 


81 


E124 


4F 


E125 


FE0E 


E127 


DA8600 


E12A 


D60D 


E12C 


4F 


E12D 


2100BA 


E130 


228B00 


E133 


C38600 



JZ 


BIOS 


MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


14 


JC 


CLOD512+DIFF 


SUI 


13 


MOV 


C,A 


LXI 


H,CCP+300H 


SHLD 


CDMA512+DIFF 


JMP 


CLOD512+DIFF 



ALL DONE ? 

SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 

PUT NEW SECTOR BACK INTO C 

PAST THE END OF THE TRACK ? 

TAKE JUMP IF NOT- PAST END OF TRACK 

PERFORM A NEGATIVE SECTOR ADJUSTMENT 

PUT NEW SECTOR IN C 

NEGATIVE DMA ADJUSTMENT 

SAVE THE NEW DMA ADDRESS 

CONTINUE READING 



********************************************************** 

* * 

* CRD512 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



E136 


01010A 


CRD512 


LXI 


B,RETRIES*100H+1 


E139 


C5 


CR512 


PUSH 


B ; 


E13A 


CD0CE4 




CALL 


DJTRK 


E13D 


CD15E4 




CALL 


DJREAD 


E140 


CI 




POP 


B ; 


E141 


D0 




RNC 




E142 


05 




DCR 


B ; 


E143 


C2B900 




JNZ 


CR512+DIFF ; 


E146 


C32AE4 




JMP 


DJERR 


E149 






DS 


80H-($ MOD 80H) 


E180 


= 


CSTK512 


EQU 


$ 



SAVE ERROR COUNT 

INITIALIZE THE TRACK 

ATTEMPT THE READ 

RESTORE THE ERROR COUNT 

RETURN IF NO ERROR 

UPDATE ERROR COUNT 

TRY AGAIN IF NOT TO MANY ERRORS 

GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT SECTOR LOADS CP/M FROM A 1024 BYTE SECTOR DISKETTE. * 

* * 

***************************************************************** 



S> : 





1F00 


# 
310001 


DIFF SET 
LXI 


80H-$ 




El 80 


SP,CSTK124+D 




E183 


010701 


LXI 


B,l*100H+7 


/ 


E186 


CDAD00 


CALL 


CLOD124+DIFF 


E189 


2100D4 


LXI 


H,CCP+1D00H 




E18C 


1100BC 


LXI 


D,CCP+500H 




E18F 


010002 


LXI 


BV200H 




E192 


1A 


CMOV124 LDAX 


D 




E193 


77 


MOV 


M,A 




E194 


23 


I NX 


H 




E195 


13 


I NX 


D 




E196 


0D 


DCR 


c. 




E197 


C29200 


,. JNZ 


CMOV124+DIFF 




E19A 


05 


DCR 


B. 




E19B 


C29200 


JNZ 


CMOV124+DIFF 




E19E 


2100B4 


LXI 


H»CeP-300H 




E1A1 


22B200 


SHLD 


CDMA124+DIFF 



SP,CSTK124+DIFF ?SET UP STACK AT END OF THIS SECTOR 

;B = SECTOR COUNT, C = SECTOR # 
rLOAD SECTOR/ 5 INTO CCP 
; DESTINATION OF MOVE 
; SOURCE OF MOVE 

rGET A BYTE OF SOURCE 

;MOVE IT 

;BUMP DESTINATION 

;BUMP SOURCE 

;ALL DONE WITH THIS PAGE ? 



; INITIAL DMA ADDRESS 



IXrlOOti +7 



■=.\otlpi! 



P/M MACRO ASSEM 2.0 


#008 


*** Cold Boer 




(v 






E1A4 


01^06 


LXI 


B,6*100H+1 


E1A7 


CDAD00 


CALL 


CLOD124+DIFF 


E1AA 


C300CD 


JMP 


BIOS 


E1AD 


C5 CLOD124 


PUSH 


B 


E1AE 


CD0FE4 


CALL 


DJSEC 


E1B1 


2100B4 


LXI 


H,CCP-300H 


E1B2 


CDMA124 


EQU 


$-2 


E1B4 


110008 


LXI 


D, 800H > 


E1B7 


19 


DAD 


D 


E1B8 


22B200 


SHLD 


CDMA124+DIFF 


E1BB 


44 


MOV 


B,H 


E1BC 


4D 


MOV 


C,L 


E1BD 


CD12E4 


CALL 


DJDMA 


E1C0 


CDDB00 


CALL 


CRD124+DIFF 


E1C3 


CI 


POP 


B 


E1C4 


05 


DCR 


B 


E1C5 


C8 


RZ 




E1C6 


3E02 


MVI 


A, 2 


E1C8 


81 


ADD 


C 


E1C9 


4F 


MOV 


C,A 


E1CA 


FE07 


CPI 


7 


ElCC 


DAAD00 


JC 


CLOD124+DIFF 


E1CF 


D605 


SUI 


5 


E1D1 


4F 


MOV 


C,A 


E1D2 


2100B8 


LXI 


H,CCP+100H 


E1D5 


22B200 


SHLD 


CDMA124+DIFF 


E1D8 


C3AD00 


JMP 


CLOD124+DIFF 



;B = SECTOR COUNT, C 



SECTOR # 



;SAVE SECTOR AND COUNT 

;SET THE NEXT SECTOR TO READ — - 

;GET DMA ADDRESS (SELF MODIFYING) 

; STORAGE FOR PREVIOUS DMA ADDRESS 

; OFFSET TO NEW DMA ADDRESS 

;ADD IN OFFSET, HL = NEW DMA ADDRESS 

;SAVE NEW DMA ADDRESS 

;PUT DMA ADDRESS INTO BC 



SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B ss COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 
NEGATIVE DMA ADJUSTMENT 
SAVE THE NEW DMA ADDRESS 
CONTINUE READING 



***************************************************************** 

* * 

* RD124 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 
***************************************************************** 



E1DB 


01010A 


CRD124 


LXI 


B, RETRIES* 100H+ 


E1DE 


C5 


CR124 


PUSH 


B 


E1DF 


CD0CE4 




CALL 


DJTRK 


E1E2 


CD15E4 




CALL 


DJREAD 


E1E5 


CI 




POP 


B 


E1E6 


D0 




RNC 




E1E7 


05 




DCR 


B 


E1E8 


C2DE00 




JNZ 


CR124+DIFF 


E1EB 


C32AE4 




JMP 


DJERR 


E1EE 






DS 


80H-($ MOD 80H) 


E200 


= 


CSTK124 


EQU 


$ 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

; ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

? UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

?GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT THREE SECTORS OF CODE ALSO RESIDE AT 80H . THERE IS * 

* ONE SECTOR FOR EACH OF THE POSSIBLE SECTOR SIZES (256,512, * 

* 1024). EACH SECTOR IS RESPONSIBLE FOR PERFORMING A WARM BOOT * 

* FOR THE SPECIFIED SECTOR SIZE. * 



cp/m macro assem 2.0 



#009 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



* 
* 
* 
* 

* 



THE FOLLOWING TABLE SHOWS HOW SECTORS ARE READ IN, SKEWING 
OF THE SECTORS IS NECESSARY BECAUSE SEQUENTIAL SECTORS CAN 
NOT BE READ WITHOUT WAITING ONE COMPLETE REVOLUTION BETWEEN 

EACH ONE. ENTRIES OF REPRESENT A WRAP AROUND (NEGATIVE 

DMA ADJUSTMENT) . AN ENTRY FLAGGED WITH ** REPRESENTS ONLY A 
PARTIAL LOAD FROM THAT SECTOR. 



256 
SEC 



ADDRESS 



* 


1 


3100H 


* 


3 


3300H 


* 


5 


3500H 


* 


7 


3700H 


* 


9 


3900H 


* 


11 


3B00H 


* 


13 


3D00H 


* 


15 


3F00H 


* 

+ 


17 


4100H 


* 


2 


3200H 


* 


4 


3400H 


* 


6 


3600H 


* 


8 


3300H 


* 


10 


3A00H 


* 


12 


3C00H 


* 


14 


3E00H 


* 


16 


4000H 


* 







** 



512 

SEC 

1 
3 
5 
7 
9 



2 
4 
6 
8 



ADDRESS 

3100H 

3500H 

3900H 

3D00H 

4100H 



3300H 
3700H 
3B00H 
3F00H 



1024 

SEC 



1 

3 

** 5 



2 

4 



ADDRESS 
3100H 
3900H 
4100H 



3500H 
3D00H 



* 
* 
* 
* 
* 
* 
* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



1$ 



1E80 


# 


DIFF SET 
LXI 


80H-$ 


E200 


310001 


SP,WSTK256+DIFF 


, E203 


010111 


LXI 


B,17*100H+1 


E206 


C5 


WLOD256 PUSH 


B 


„ E207 


CD0FE4 


CALL 


DJSEC 


*~ E20A 


2100BA 


LXI 


H,CCP+300H 


E20B 


■TS 


- WDMA256 EQU 


$-2 


E20D 


110002 


LXI 


D,200H 


E210 


19 


DAD 


D 


E211 


228B00 


SHLD 


WDMA256+DIFF 


E214 


44 


MOV 


B,H 


E215 


4D 


MOV 


C,L 


E216 


CD12E4 


CALL 


DJDMA 


E219 


CDB600 


CALL 


WRD256+DIFF 


E21C 


CI 


POP 


B 


E21D 


05 


DCR 


B 


E21E 


CA03CD 


JZ 


BIOS+3 


E221 


3E02 


MVI 


A, 2 


E223 


81 


ADD 


C 


E224 


4F 


MOV 


C,A 


E225 


FE13 


CPI 


19 


E227 


DA8600 


JC 


WLOD256+DIFF 


E22A 


D611 


SUI 


17 


E22C 


4F 


MOV 


C,A 



SET UP STACK AT END OF THIS SECTOR 
B = SECTOR COUNT, C = SECTOR # 
SAVE SECTOR AND COUNT 
SET THE NEXT SECTOR TO READ 
GET DMA ADDRESS (SELF MODIFYING) 
STORAGE FOR PREVIOUS DMA ADDRESS- 
OFFSET TO NEW DMA ADDRESS 
ADD IN OFFSET, HL = NEW DMA ADDRESS 
SAVE NEW DMA ADDRESS 
PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE THE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 



CP/M MACRO ASSEM 2.0 #010 

E22D 2100BB LXI 

E230 228B00 SHLD 

E233 C38600 JMP 



Cold Boot Loader for CP/M Ver. 2.2 *** 



H,CCP+400H 

WDMA256+DIPP 

WLOD256+DIFF 



; NEGATIVE DMA ADJUSTMENT 
;SAVE THE NEW DMA ADDRESS 
; CONTINUE READING 



***************************************************************** 

* * 

* WRD256 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



E236 


01010A 


WRD256 


LXI 


B, RETRIES* 100H+ 


E239 


C5 


WR256 


PUSH 


B 


E23A 


CD0CE4 




CALL 


DJTRK 


E23D 


CD15E4 




CALL 


DJREAD 


E240 


CI 




POP 


B 


E241 


D0 




RNC 




E242 


05 




DCR 


B 


E243 


C2B900 




JNZ 


WR256+DIFF 


E246 


C32AE4 




JMP 


DJERR 


E249 






DS 


80H-{$ MOD 80H) 


E280 


= 


WSTK256 


EQU 


$ 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

7 ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

j GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* DISK JOCKEY 2D CP/M FROM A 512 BYTE SECTOR DISKETTE. * 

* * 
***************************************************************** 



1E00 # 



DIFF 



SET 



80H-$ 



Tf 



E280 


310001 


LXI 


SP,WSTK512+DIFF 


E283 


010901 


LXI 


B, 1*10011+9 


E286 


CDA800 


CALL 


WLOD512+DIFF 


E289 


2100CC 


LXI 


H,CCP+1500H 


E28C 


1100BC 


LXI 


D,CCP+500H 


E28F 


0E00 


MVI 


C,0 


E291 


1A 


MOV512 LDAX 


D 


E292 


77 


MOV 


M,A 


E293 


23 


INX 


H 


E294 


13 


I NX 


D 


E295 


0D 


DCR 


C 


E296 


C29100 


JNZ 


MOV512+DIFF 


E299 


2100BA 


LXI 


H,CCP+300H 


E29C 


22AD00 


SHLD 


WDMA512+DIFF 


E29F 


010208 


LXI 


B,8*100H+2 


E2A2 


CDA800 


CALL 


WLOD512+DIFF 


E2A5 


C303CD 


JMP 


BIOS+3 


E2A8 


C5 


WLOD512 PUSH 


B 


E2A9 


CD0FE4 


CALL 


DJSEC 


E2AC 


2100B8 


LXI 


H,CCP+100H 


E2AD 


= 


WDMA512 EQU 


$-2 


E2AF 


110004 


LXI 


D,400H 


E2B2 


19 


DAD 


D 


E2B3 


22AD00 


SHLD 


WDMA512+DIFF 



;SET UP STACK AT END OF THIS SECTOR 
,-B = SECTOR COUNT, C = SECTOR # 
;LOAD SECTOR 9 INTO CCP 
; DESTINATION OF MOVE 
; SOURCE OF MOVE 

;GET A BYTE OF SOURCE 

;MOVE IT 

;BUMP DESTINATION 

;BUMP SOURCE 

;ALL DONE WITH THIS PAGE ? 

.•INITIAL DMA ADDRESS 



;B 



SECTOR COUNT, C = SECTOR # 



;SAVE SECTOR AND COUNT 

;SET THE NEXT SECTOR TO READ 

;GET DMA ADDRESS (SELF MODIFYING) 

; STORAGE FOR PREVIOUS DMA ADDRESS 

; OFFSET TO NEW DMA ADDRESS 

;ADD IN OFFSET, HL = NEW DMA ADDRESS 

;SAVE NEW DMA ADDRESS 



cp/m macro ASSEM 2.0 



#011 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E2B6 


44 


E2B7 


4D 


E2B8 


CD12E4 


E2BB 


CDD600 


E2BE 


CI 


E2BF 


05 


E2C0 


C8 


E2C1 


3E02 


E2C3 


81 


E2C4 


4F 


E2C5 


FE0A 


E2C7 


DAA800 


E2CA 


D609 


E2CC 


4F 


E2CD 


2100B8 


E2D0 


22AD00 


E2D3 


C3A800 



MOV 


B,H 


MOV 


C,L 


CALL 


DJDMA 


CALL 


WRD512+DIFF 


POP 


B 


DCR 


B 


RZ 




MVI 


A, 2 


ADD 


C 


MOV 


C,A 


CPI 


10 


JC 


WLOD512+DIFF 


SUI 


9 


MOV 


C,A 


LXI 


H,CCP+100H 


SHLD 


WDMA512+DIFF 


JMP 


WLOD512+DIFF 



;PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 
NEGATIVE DMA ADJUSTMENT 
SAVE THE NEW DMA ADDRESS 
CONTINUE READING 



***************************************************************** 

* * 

* WRD512 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



E2D6 


01010A 


WRD512 ' 


LXI 


B,RETRIES*100H+ 


E2D9 


C5 


WR512 


PUSH 


B 


E2DA 


CD0CE4 




CALL 


DJTRK 


E2DD 


CD15E4 




CALL 


DJREAD 


E2E0 


CI 




POP 


B 


E2E1 


D0 




RNC 




E2E2 


05 




DCR 


B 


E2E3 


C2D900 




JNZ 


WR512+DIFF 


E2E6 


C32AE4 




JMP 


DJERR 


E2E9 






DS 


80H-($ MOD 80H) 


E300 


= 


WSTK512 


EQU 


$ 



;SAVE ERROR COUNT 

.•INITIALIZE THE TRACK 

; ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

; TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 

* * 

* THE NEXT SECTOR LOADS CP/M FROM A 1024 BYTE SECTOR DISKETTE. * 

* * 

***************************************************************** 



1D80 # 



ri> 



DIFF SET 80H-$ 

SP,WSTK124+DIFF ;SET UP STACK AT END OF THIS SECTOR 

;B = SECTOR COUNT, C = SECTOR # 
;LOAD SECTOR 6 INTO CCP 
; DESTINATION OF MOVE 
-; SOURCE* OF MOVE 

;GET A BYTE OF SOURCE 

;MOVE IT 

yBUMP DESTINATION 



E300 


310001 


LXI 


SP,WSTK124+D 


E303 


010501 


LXI 


B,l*100H+5 


E30.6 


CDA800 


CALL 


WLQD124+DIFF 


/ E309 


2100CC 


LXI 


H,CCP+1500H 


( E30C 


1100BC 


LXI 


D,CCP+500H 


E30F 


0E00 


MVI 


C # 


E311 


1A MOV124 LDAX 


D 


E312 


77 


MOV 


M,A „i 


E313 


23 


I NX 


H 



CP/M macro ASSEM 2.0 



#012 



*** Cold Boot Loader for CP/M Ver. 2.2 



*** 



;BUMP SOURCE 

;ALL DONE WITH THIS PAGE ? 

; INITIAL DMA ADDRESS 

;B = SECTOR COUNT, C = SECTOR # 



SAVE SECTOR AND COUNT 

SET THE NEXT SECTOR TO READ 

GET DMA ADDRESS (SELF MODIFYING) 

STORAGE FOR PREVIOUS DMA ADDRESS 

OFFSET TO NEW DMA ADDRESS 

ADD IN OFFSET, HL = NEW DMA ADDRESS 

SAVE NEW DMA ADDRESS 

PUT DMA ADDRESS INTO BC 

SET THE DMA ADDRESS 

ATTEMPT A READ 

RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C = NUMBER 
UPDATE SECTOR COUNT 
ALL DONE ? 
SECTOR UPDATE 

ADD IN THE SECTOR SKEW FACTOR 
PUT NEW SECTOR BACK INTO C 
PAST THE END OF THE TRACK ? 
TAKE JUMP IF NOT PAST END OF TRACK 
PERFORM A NEGATIVE SECTOR ADJUSTMENT 
PUT NEW SECTOR IN C 
NEGATIVE DMA ADJUSTMENT 
SAVE THE NEW DMA ADDRESS 
CONTINUE READING 

***************************************************************** 

* * 

* WR124 DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

************************************************************* 



E314 


13 


I NX 


D 


E315 


0D 


DCR 


C 


E316 


C29100 


JNZ 


MOV124+DIFF 


E319 


2100B8 


LXI 


H,CCP+100H 


E31C 


22AD00 


SHLD 


WDMA124+DIFF 


E31F 


010204 


LXI 


B,4*100H+2 


E322 


CDA800 


CALL 


WLOD124+DIFF 


E325 


C303CD 


JMP 


BIOS+3 


E328 


C5 


WLOD124 PUSH 


B 


E329 


CD0FE4 


CALL 


DJSEC 


E32C 


2100B4 


LXI 


H,CCP-300H 


E32D 


= 


WDMA124 EQU 


$-2 


E32F 


1 10008 


LXI 


D, 800H 


E332 


19 


DAD 


D 


E333 


22AD00 


SHLD 


WDMA124+DIFF 


E336 


44 


MOV 


B,H 


E337 


4D 


MOV 


C,L 


E333 


CD12E4 


CALL 


DJDMA 


E33B 


CDD600 


CALL 


WRD124+DIFF 


E33E 


CI 


POP 


B 


E33F 


05 


DCR 


B 


E340 


C8 


RZ 




E341 


3E02 


MVI 


A, 2 


E343 


81 


ADD 


C 


E344 


4F 


MOV 


C,A 


E345 


FE06 


CPI 


6 


E347 


DAA800 


JC 


WLOD124+DIFF 


E34A 


D605 


SUI 


5 


E34C 


4F 


MOV 


C,A 


E34D 


2100B4 


LXI 


H.CCP-300H 


E350 


22AD00 


SHLD 


WDMA124+DIFF 


E353 


C3A300 


JMP 


WLOD124+DIFF 



E356 


01010A 


WRD124 


LXI 


B,RETRIES*100H+ 


E359 


C5 


WR124 


PUSH 


B 


E35A 


CD0CE4 




CALL 


DJTRK 


E35D 


CD15E4 




CALL 


DJREAD 


E360 


CI 




POP 


B 


E361 


D0 




RNC 




E362 


05 




DCR 


B 


E363 


C2D900 




JNZ 


WR124+DIFF 


E366 


C32AE4 




JMP 


DJERR 


E369 




» 


DS 


80H-($ MOD 80H) 


E380 


= 


WSTK124 


EQU 


$ 



;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

; ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



***************************************************************** 
* * 



cp/m macro ASSEM 2.0 



#013 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 



* THE NEXT SECTOR OF CODE RESIDES AT CCP+500H. IT'S TASK IS TO 

* MOVE THE FIRMWARE CODE INTO THE DISK JOCKEY RAM, THEN 

* LOADING A SECTOR INTO 30H WHICH WILL LOAD THE REST OF CP/M. 

* THE SECTOR LOADED AT 30H IS DEPENDENT ON THE SECTOR SIZE 

* OF THE DISKETTE BEING BOOTED FROM. 



* 
* 
* 
* 
* 
* 



***************************************************************** 



-If 



*1 



D880 


# 


DIFF SET 


CCP+500H-$ 


E380 


C306BC 


JMP 


DOCOLD+DIFF 


E383 


C324BC 


JMP 


DOWARM+DIFF 


E386 


3180BC 


DOCOLD LXI 


SP, STK+DIFF 


E389 


2100E4 


LXI 


H,DJRAM 


E38C 


1180BC 


LXI 


D,STK+DIFF 


E33F 


010003 


LXI 


B,300H 


E392 


1A 


MLOOP LDAX 


D 


E393 


77 


MOV 


M,A 


E394 


23 


I NX 


H 


E395 


13 


INX 


D 


E396 


03 


DCX 


B 


E397 


73 


MOV 


A,B 


E398 


Bl 


ORA 


C 


E399 


C212BC 


JNZ 


MLOOP+DIFF 


E39C 


CD00E4 


CALL 


DJBOOT 


E39F 


3E01 


MVI 


A,l 


E3A1 


3246BC 


STA 


BOTBIAS+DIFF 


E3A4 


3180BC 


DOWARM LXI 


SP, STK+DIFF 


E3A7 


0E01 


MVI 


C,l 


E3A9 


CD2DE4 


CALL 


DJDEN 


E3AC 


0E01 


MVI 


C,l 


E3AE 


79 


MOV 


A,C 


E3AF 


3264BC 


STA 


TRKNUM+DIFF 


E3B2 


CD0FE4 


CALL 


DJSEC 


E3B5 


0180BC 


LXI 


B, STK+DIFF 


E3B8 


CD12E4 


CALL 


DJDMA 


E3BB 


CD63BC 


CALL 


REED+DIFF 


E3BE 


CD27E4 


CALL 


DJSTAT 


E3C1 


E60C 


AN I 


0CH 


E3C3 


IF 


RAR 




E3C4 


IF 


RAR 




E3C5 


C604 


AD I 


4 


E3C6 


= 


BOTBIAS EQU 


$-1 


E3C7 


4F 


MOV 


C,A 


E3C8 


CD0FE4 


CALL 


DJSEC 


E3CB 


AF 


XRA 


A 


E3CC 


3264BC 


STA 


TRKNUM+DIFF 


E3CF 


018000 


LXI 


B,80H 


E3D2 


C5 


PUSH 


B 


E3D3 


CD12E4 


CALL 


DJDMA 


E3D6 


0E00 


MVI 


C,0 


E3D8 


CD2DE4 


CALL 


DJDEN 



USED TO RELOCATE THIS SECTOR OF CODE 

JUMP TO COLD BOOT PORTION 
JUMP TO WARM BOOT PORTION 

SET UP INITIAL STACK AT END OF THIS SECTOR 

DESTINATION POINTER 

SOURCE POINTER 

LENGTH OF TRANSFER 

GET ONE BYTE OF SOURCE 

PUT AT DESTINATION 

BUMP DESTINATION 

BUMP SOURCE 

UPDATE COUNT OF BYTES TO MOVE 

TEST IF ALL DONE 

; CONTINUE MOVING NEW FIRMWARE 
? INITIALIZE THE NEW FIRMWARE 

;SET UP FOR PROPER SECTOR SELECT 



;SET THE DENSITY TO DOUBLE 

;SET UP TO READ SECTOR 1 ON TRACK 1 

;SET TRACK 

;SET SECTOR 

? SET THE DMA ADDRESS 

yREAD THE SECTOR INTO MEMORY AT 

? END OF THIS SECTOR 

; DETERMINE THE SECTOR SIZE 

; STRIP OFF UNWANTED BITS 

;FORM THE DESIRED SECTOR FOR COLD BOOT 

; BASED ON THE LENGTH OF THE 

; SECTORS ON THIS DISKETTE 

? PREPARE TO READ THE COLD BOOT 
;SET UP THE SECTOR 
; TRACK 

;COLD BOOT LOADS AT 80H 

;USED AS JUMP ADDRESS TO COLD BOOT — 

; I 

rDENSITY ON TRACK IS SINGLE I 



CP/M MACRO ASSEM 2.0 #014 *** Cold Boot Loader for CP/M Ver. 2.2 *** 



E3DB CD63BC 
E3DE 0E01 
E3E0 C32DE4 



E3E3 


01000A 


E3E4 


= 


E3E6 


C5 


E3E7 


CD0CE4 


E3EA 


CD15E4 


E3ED 


CI 


E3EE 


D0 


E3EF 


05 


E3F0 


C266BC 


E3F3 


C32AE4 


E3F6 




E400 


= 



CALL 


REED+DIFF 


MVI 


C,l 


JMP 


DJDEN 



READ IN THE COLD BOOT 

SET THE DENSITY BACK TO DOUBLE 



GO TO THE COLD BOOT <• 



***************************************************************** 

* * 

* REED DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 
***************************************************************** 



REED LXI 

TRKNUN 

REED1 



B,RETRIES*100H+0 ;MAXIMUM # OF ATTEMPTS 



EQU 


$-2 


PUSH 


B 


CALL 


DJTRK 


CALL 


DJREAD 


POP 


B 


RNC 




DCR 


B 


JNZ 


REED1+DIFF 


JMP 


DJERR 


DS 


80H-($ MOD 80H) 


EQU 


$ 


ELSE 





.•STORAGE FOR TRACK NUMBER 

;SAVE ERROR COUNT 

; INITIALIZE THE TRACK 

; ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

; UPDATE ERROR COUNT 

;TRY AGAIN IF NOT TO MANY ERRORS 

;GO AND FLASH THE LIGHT ON CONTROLLER 



STK 



***************************************************************** 

* * 

* COLD BOOT LOADER FOR DISCUS M10, M20, M26. * 

* * 
***************************************************************** 





IF 


MAXFLOP NE 




ORG 


ORIGIN 




ELSE 






ORG 


100H 




ENDIF 




DIFF 


SET 


100H-$ 


BOOTHD 


LXI 


SP,CSTKHD+DIFF 




LXI 


B,l*100H+20 




CALL 


CLODHD+DIFF 




LXI 


H,CCP+1E00H 




LXI 


D,CCP 




MVI 


C,0 


CMOVHD 


LDAX 


D 




MOV 


M,A 




I NX 


H 




I NX 


D 




DCR 


C 




JNZ 


CMOVHD+DIFF 




LXI 


H,CCP-200H 




SHLD 


CDMAHD+DIFF 




LXI 


B, 15*100H+5 




CALL 


CLODHD+DIFF 



;ORG PROGRAM AT FLOPPY ORIGIN 
; OR ELSE AT 100H 



;SET UP STACK AT END OF THIS SECTOR 
;B = SECTOR COUNT, -C = SECTOR # 
;LOAD SECTOR 20 INTO CCP 
; DESTINATION OF MOVE 
; SOURCE OF MOVE 

;GET A BYTE OF SOURCE 

;MOVE IT 

;BUMP DESTINATION 

;BUMP SOURCE 

;ALL DONE WITH THIS PAGE ? 

; INITIAL DMA ADDRESS 

;B -. SECTOR COUNT, C = SECTOR # 



pv 



CP/M macro ASSEM 2.0 



#015 



! ** Cold Boot Loader for CP/M Ver. 2.2 *** 



IF 


MAXFLOP NE 


MVI 


C,17 


MVI 


A, (JMP) 


LXI 


H, ORIGIN 


CLOP CMP 


M 


JNZ 


BIOS 


I NX 


H 


I NX 


H 


I NX 


H 


DCR 


C 


JNZ 


CLOP+DIFF 


LXI 


H,DJRAM-200H 


SHLD 


CDMAHD+DIFF 


LXI 


B,2*100H+3 


CALL 


CLODHD+DIFF 


END IF 




JMP 


BIOS 


CLODHD PUSH 


B 


MOV 


A,C 


STA 


HDSEC+DIFF 


LXI 


H,CCP-200H 


CDMAHD EQU 


$-2 


LXI 


D,200H 


DAD 


D 


SHLD 


CDMAHD+DIFF 


CALL 


CRDHD+DIFF 


POP 


B 


DCR 


B 


RZ 




INR 


C 


JMP 


CLODHD+DIFF 



; CHECK IF DISCUS 2D IS PRESENT 

; SHOULD BE 17 JUMPS IN THE JUMP TABLE 



;NOT 17 JUMPS, DON'T READ IN THE RAMWARE 
;SKIP OVER THE JUMP INSTRUCTION 



; UPDATE JUMP COUNTER 

; CONTINUE CHECKING 

;LOAD IN THE DISK JOCKEY 2D RAMWARE 



;GO TO CP/M 

;SAVE SECTOR AND COUNT 



;GET DMA ADDRESS (SELF MODIFYING) 

; STORAGE FOR PREVIOUS DMA ADDRESS 

; OFFSET TO NEW DMA ADDRESS 

? ADD IN OFFSET, HL = NEW DMA ADDRESS 

;SAVE NEW DMA ADDRESS 

7 ATTEMPT A READ 

; RECOVER SECTOR NUMBER AND COUNT 

B = COUNT, C » NUMBER 
; UPDATE SECTOR COUNT 
;ALL DONE ? 

; CONTINUE READING 

***************************************************************** 

* * 

* RDHD DOES THE ACTUAL READ FROM THE CONTROLLER, THE DMA * 

* ADDRESS AND SECTOR # HAVE ALREADY BEEN SET UP. * 

* * 

***************************************************************** 



CRDHD 


LXI 


B, RETRIES* 10 


CRHD 


PUSH 


B 




CALL 


HDREAD+DIFF 




POP 


B 




RNC 






DCR 


B 




JNZ 


CRHD+DIFF 




JMP 


$ 


HDREAD 


CALL 
RC 


HDPREP+DIFF 




MVI 


A,RSECT 




OUT 


HDCMND 




CALL 


PROCESS+DIFF 




RC 





;SAVE ERROR COUNT 

? ATTEMPT THE READ 

; RESTORE THE ERROR COUNT 

; RETURN IF NO ERROR 

? UPDATE ERROR COUNT 

,*TRY AGAIN IF NOT TO MANY ERRORS 

; DYNAMIC ERROR HALT 

; PREPARE THE SECTOR HEADER IMAGE 

; ERROR EXIT 

;READ SECTOR COMMAND 

; PROCESS THE READ 
; ERROR EXIT 



cp/m macro ASSEM 2.0 



#016 



XRA 


A 


OUT 


HDCMND 


MVI 


B,SECLN/4 


LHLD 


CDMAHD+DIFF 


IN 


HDDATA 


IN 


HDDATA 


RTLOOP IN 


HDDATA 


MOV 


M,A 


I NX 


H 


IN 


HDDATA 


MOV 


M,A 


I NX 


H 


IN 


HDDATA 


MOV 


M,A 


INX 


H 


IN 


HDDATA 


MOV 


M,A 


INX 


H 


DCR 


B 


JNZ 


RTLOOP+DIFF 


RET 




PROCESS IN 


HDSTAT 


MOV 


B,A 


AN I 


OPDONE 


JZ 


PROCESS+DIFF 


MVI 


A,DSKCLK 


OUT 


HDCNTL 


IN 


HDSTAT 


AN I 


TMOUT 


STC 




RNZ 




IN 


HDRESLT 


ANI 


RETRY 


STC 




RNZ 




XRA 


A 


RET 




HDPREP IN 


HDSTAT 


ANI 


DRVRDY 


STC 




RNZ 




MVI 


A, ISBUFF 


OUT 


HDCMND 


MVI 


A, NULL 


OUT 


HDFUNC 


XRA 


A 


OUT 


HDDATA 


OUT 


HDDATA 


MVI 


A,0 


HDSEC EQU 


$-1 , 


OUT 


HDDATA 


MVI 


A,80H 


OUT 


, HDDATA 


MVI 


A,DSKCLK 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 

; POINTER TO DATA BUFFER 



; NUMBER OF BYTES TO READ 
;GET DESTINATION OF DATA 
;TWO DUMMY DATA BYTES 



;MOVE FOUR BYTES 
;BYTE ONE 

?BYTE TWO 



; BYTE THREE 



;BYTE FOUR 



; UPDATE BYTE COUNT 



;WAIT FOR COMMAND TO FINISH 



;TURN ON DISK CLOCK 



; TIMED OUT ? 



;ANY RETRIES ? 



;NO ERROR EXIT 



;IS DRIVE READY ? 



; INITIALIZE POINTER TO HEADER BUFFER 



; SELECT DRIVE A 

;FORM HEAD BYTE 
;FORM TRACK BYTE 
;FORM SECTOR BYTE 



;FORM KEY 

;TURN ON DISK CLOCK 



CP/M MACRO ASSEM 2.0 #317 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 

; WRITE ENABLE ON 



OUT 


HDCNTL 


MVI 


A, WENABL 


OUT 


HDCNTL 


RET 





ORG 

CSTKHD EQU 
DW 



END IF 



BOOTHD+200H-2 



BOOTHD+DIFF 

200H 



***************************************************************** 

* * 

* DISK JOCKEY 2D FIRMWARE REVISION 3.1 AND 4.0 * 

* BY GEORGE MORROW * 

* * 

* THE FOLLOWING FIRMWARE IS LOADED INTO MEMORY AND THEN MOVED * 

* INTO THE CONTROLLER RAM. * 

* * 

***************************************************************** 



E000 
E400 

E3F8 
E3F8 
E3F9 
E3F9 
E3FA 
E3FA 
E3FC 
E3FC 
E3FD 
E3FE 
E3FF 



0080 
00A0 
0004 
0010 
0001 
0018 
0004 
0002 
0020 
0010 
00C4 
00D0 
001D 
0018 
0009 
0004 
0008 





IF 


MAXFLOP NE 


ROM 


EQU 


ORIGIN 


RAM 


EQU 


ORIGIN+400H 


10 


EQU 


ROM+3F8H 


UDATA 


EQU 


10 


DCMD 


EQU 


10+1 


DSTAT 


EQU 


DCMD 


DREG 


EQU 


IO+2 


USTAT 


EQU 


DREG 


CMDREG 


EQU 


10+4 


CSTAT 


EQU 


CMDREG 


TRKREG 


EQU 


10+5 


SECREG 


EQU 


IO+6 


DATREG 
* 


EQU 


IO+7 


* 
RCMD 


EQU 


200Q 


WCMD 


EQU 


240Q 


HEAD 


EQU 


4 


LOAD 


EQU 


20Q 


DENSTY 


EQU 


1 


ULOAD 


EQU 


30Q 


RSTBIT 


EQU 


4 


ACCESS 


EQU 


2 


READY 


EQU 


40Q 


INDEX 


EQU 


20Q 


RACMD 


EQU 


304Q 


CLRCMD 


EQU 


320Q 


SVCMD 


EQU 


35Q 


SKCMD 


EQU 


30Q 


HCMD 


EQU 


11Q 


I STAT 


EQU 


4 


OSTAT 


EQU 


10Q 



CP/M MACRO ASSEM 2 



#018 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 








0008 


= 


DSIDE 


EQU 


10Q 




0004 


= 


TZERO 


EQU 


4 




0003 


= 


MDINT 


EQU 


3 




001E 


= 


LIGHT 


EQU 


36Q 




003E 


= 


NOLITE 
* 

* 
DBOOT 


EQU 
JMP 


76Q 




E400 


C333E4 


BOOT 




E403 


C303E0 


TERMIN 


JMP 


ORIGIN+3 




E406 


C306E0 


TRMOUT 


JMP 


ORIGIN+6 




E409 


C3FEE4 


TKZERO 


JMP 


HOME 




E40C 


C332E5 


TRKSET 


JMP 


SEEK 




E40F 


C325E5 


SETS EC 


JMP 


SECSET 




E412 


C3E5E4 


SETDMA 


JMP 


DMA 




E415 


C384E5 


DREAD 


JMP 


READ 




E418 


C363E5 


DWRITE 


JMP 


WRITE 




E41B 


C3DAE4 


SELDRV 


JMP 


DRIVE 




E41E 


C31EE0 


TPANIC 


JMP 


ORIGIN+1EH 




E421 


C321E0 


TSTAT 


JMP 


ORIGIN+21H 




E424 


C3D2E4 


DMAST 


JMP 


DMSTAT 




E427 


C3AEE4 


STATUS 


JMP 


DISKST 




E42A 


C32AE0 


DSKERR 


JMP 


ROM+52Q 




E42D 


C3CAE7 


SETDEN 


JMP 


DENFIX 




E430 


C37FE6 


SETSID 
* 


JMP 


SIDEFX 




E433 


79 


* 
BOOT 


MOV 


A,C 




E434 


32EBE6 




STA 


DISK 




E437 


3268E4 




STA 


BDISK 




E43A 


3E7F 




MVI 


A,7FH 




E43C 


07 


DSRT 


RLC 






E43D 


0D 




DCR 


C 




E43E 


F23CE4 




JP 


DSRT 




E441 


32EAE6 




STA 


DRVSEL 




E444 


3267E4 




STA 
IF 

CALL 
END IF " 


BDRVSEL 

FIRST 

FIXIO 




E447 


3AF4E3 




LDA 


IO-4 




E44A 


FEC9 


- "' ■- *-■■■■ 


CPT 


(RET) 




E44C 


CA8EE4 




JZ 


MODELA 




E44F 


1100E0 




LXI 


D # ORIGIN 




E452 


2100E4 




LXI 


H,RAM 




E455 


0E33 , 




MVI 

IF 

CALL 

MVI 

CALL 

MVI 

STA 

LDA 

ORI 

ANI 

CALL 

MVI 

CALL 


C , BOOT-DBOOT 

FIRST 

MODELM 

A,7FH 

SDSEL 

A,CLRCMD 

CMDREG 

BDRVSEL 

6.0H 

7FH 

SDSEL 

A,9H 

SCBITS 



. TEST FOR MODEL A OR B 



*;COPY PROM JUMP TABLE INTO RAM 



cp/m macro ASSEM 2.0 



#019 



*** Cold Boot Loader for CP/M Ver. 2.2 *** 









MVI 


A, (JZ) 










STA 


INDX1 










STA 


INDX3 










MVI 


A, (JNZ) 










STA 


INDX2 










CALL 


MEASUR 










XCHG 












SHLD 


BTIMER 










LXI 


D, BTBLE 










LXI 


H,ORIGIN+7E3H 










MVI 


C,23 










END IF 






E457 


1A 


MODELM 


LDAX 


D 




E458 


77 




MOV 


M, A 




E459 


13 




INX 


D 




E45A 


23 




I NX 


H 




E45B 


0D 




DCR 


C 




E45C 


C257E4 




JNZ 


MODELM 




E45F 


C9 




RET 






E460 


00 


BTBLE 


DB 







E461 


00180000 


BTIMER 


DW 


1800H,0 




E465 


0800 




DB 


8,0 




E467 


7E 


BDRVSEL 


DB 


7EH 




E468 


00080009FFBDISK 


DB 


0,8,0, 9, 0FFH, 9, 0FFH, 9, 0FFH, 9, 0FFH, 9, 0, 1, 


E477 


2A07E0 


FIXIO 


LHLD 


ROM+7 ; 


FIND THE 2ND 


E47A 


23 




INX 


H ; 


BYTE OF INPUT ROUTINE 


E47B 


110400 




LXI 


D,4 ; 


OFFSET 


E47E 


7E 




MOV 


A,M j 


GET ADDR OF USTAT 


E47F 


21EAE7 




LXI 


H,SDSEL+1 


•I/O ROUTINES 


E482 


77 




MOV 


M,A 


•STORE USTAT ADDR 


E483 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E484 


77 




MOV 


M,A ; 


•STORE USTAT ADDR 


E485 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E486 


EE03 




XRI 


3 ; 


•SWITCH THE ADDR 


E488 


77 




MOV 


M,A 


•STORE DSTAT ADDR 


E489 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E48A 


77 




MOV 


M,A 


•STORE DAT AT ADDR 


E48B 


19 




DAD 


D 


•INCREMENT MEM ADDR 


E48C 


77 




MOV 


M,A 


■STORE DSTAT ADDR 


E48D 


C9 




RET 






E48E 


= 


MODELA 


EQU 
IF 


$ 

NOT FIRST 




E48E 


0E00 




MVI 


C,0 


rCOPY LAST PAGE OF RAM 


E490 


CD57E4 




CALL 
ENDI-F 


MODELM 




E493 


CD77E4 




CALL 


FIXIO 




E496 


3E03 


-- 


MVI 


A, 3 


• 


E498 


CDF1E7 




CALL 


SCBITS 




E49B 


3ED0 




MVI 


A, CLRCMD 


?1791 RESET 


E49D 


32FCE3 




STA 


CMDREG 


; COMMAND 


E4A0 


3AEAE6 




LDA 


DRVSEL 


; INITIALIZE 1791 


E4A3 


CDE9E7 




CALL 


SDSEL * 


; CONTROL BITS 


E4A6 


C DADE 7 




CALL 


MEASUR 





CP/M MACRO ASSEM 2.0 



#020 



*** 



Cold Boot Loader for CP/M Ver. 2.2 *** 



E4A9 


EB 




XCHG 




E4AA 


22E5E6 




SHLD 


TIMER 


E4AD 


C9 


* 
* 

DISKST 


RET 




E4AE 


3AFEE3 




LDA 


SECREG 


E4B1 


47 




MOV 


B,A 


E4B2 


3AFDE3 




LDA 


TRKREG 


E4B5 


4F 




MOV 


C,A 


E4B6 


3AF6E6 




LDA 


DC REG 


E4B9 


2F 




CMA 




E4BA 


E601 




ANI 


1 


E4BC 


0F 




RRC 




E4BD 


57 




MOV 


D,A 


E4BE 


3AF7E6 




LDA 


SIDE 


E4C1 


07 




RLC 




E4C2 


07 




RLC 




E4C3 


07 




RLC 




E4C4 


82 




ADD 


D 


E4C5 


57 




MOV 


D,A 


E4C6 


3AFDE6 




LDA 


SECLEN 


E4C9 


07 




RLC 




E4CA 


07 




RLC 




E4CB 


82 




ADD 


D 


E4CC 


57 




MOV 


D,A 


E4CD 


3AECE6 




LDA 


CDISK 


E4D0 


32 




ADD 


D 


E4D1 


C9 


* 
* 
DM STAT 


RET 




E4D2 


E5 




PUSH 


H 


E4D3 


2AE7E6 




LHLD 


DMAADR 


E4D6 


44 




MOV 


B,H 


E4D7 


4D 




MOV 


C,L 


E4D8 


El 




POP 


H 


E4D9 


C9 


* 
* 

DRIVE 


RET 




E4DA 


3EFC 




MVI 


A,374Q 


E4DC 


81 




ADD 


C 


E4DD 


3E10 




MVI 


A,20Q 


E4DF 


D8 




RC 




E4E0 


79 




MOV 


A,C 


E4E1 


32EBE6 




STA 


DISK 


E4E4 


C9 


* 
* 

DMA 


RET 




E4E5 


210820 




LXI 


H,8-ROM 


E4E8 


09 




DAD 


B 


E4E9 


D2F7E4 




JNC 


DMASET 


E4EC 


21001C 




LXI 


H,-RAM 


E4EF 


09 




DAD 


B 



GET CURRENT 

SECTOR NO IN B 
GET CURRENT 

TRACK NO IN C 
GET CURRENT 

DENSITY IN 

THE MSB 
POSITION 
SAVE IN D 
PUT THE 

SIDE 

SELECT 

FLAG 

IN BIT 

POSITION 6 
PUT THE 

SECTOR LENGTH 

CODE P BITS 

2 & 3 

PUT THE CURRENT 

DISK NO IN BITS 

& 1 



;SAVE THE H-L PAIR 
;H-L PAIN 
;MOVE THE DMA 
;ADDR TO B-C 
; RECOVER H-L 



TEST FOR THE 

NEW DRIVE NUMBER 
LESS THAN 4 

; STORE THE NEW 
; DRIVE IN DISK 



TEST THE 

DMA ADDRESS 
FOR CONFLICT 
WITH THE I/O 
ON THE DJ/2D 



cp/m macro ASSEM 2.0 



E4F0 DAF7E4 




JC 


DMASET 


E4F3 37 




STC 




E4F4 3E10 




MVI 


A, 20Q 


E4F6 C9 


DMASET 


RET 




E4F7 60 




MOV 


H,B 


E4F8 69 




MOV 


L,C 


E4F9 22E7E6 




SHLD 


DMAADR 


E4FC AF 




XRA 


A 


E4FD C9 


* 
* 

HOME 


RET 




E4FE CD00E7 




CALL 


HDLOAD 


E501 D8 




RC 




E502 CD14E5 




CALL 


HENTRY 


E505 F5 




PUSH 


PSW 


E506 9F 




SBB 


A 


E507 32F9E6 




STA 


TRACK 


E50A 32FDE3 




STA 


TRKREG 


E50D AF 




XRA 


A 


E50E 32EDE6 




STA 


TZFLAG 


E511 C3CAE5 


HENTRY 


JMP 


LEAVE+1 


E514 AF 




XRA 


A 


E515 32E9E6 




STA 


HDFLAG 


E518 210000 




LXI 


H,0 


E51B 3E09 




MVI 


A, HCMD 


E51D CD7DE7 




CALL 


CENTRY 


E520 E604 




AMI 


TZERO 


E522 C0 




RNZ 




E523 37 




STC 




E524 C9 


* 
* 

SECSET 


RET 




E525 AF 




XRA 


A 


E526 Bl 




ORA 


C 


E527 37 




STC 




E528 C8 




RZ 




E529 79 




MOV 


A,C 


E52A FE1B 




CPI 


27 


E52C 3F 




CMC 




E52D D8 




RC 




E52E 32F8E6 




STA 


SECTOR 


E531 C9 


* 
* 


RET 





E532 79 
E533 FE4D 
E535 3F 
E536 D8 
E537 32F9E6 
E53A C9 



#021 *** Cold Boot Loader for CP/M Ver. 2.2 *** 

; CONTROLLER 



SEEK 



MOV 

CPI 

CMC 

RC 

STA 

RET 



A,C 
77 



TRACK 



GET THE DMA ADDR 

TO THE H-L PAR 

STORE 

CLEAR THE ERROR 

FLAG AND RETURN 



LOAD THE HEAD 
NOT READY ERROR 
MOVE THE HEAD 
SAVE THE FLAGS 
UPDATE THE 

TRACK 

REGISTERS 
SET THE NOT 

VERIFIED FLAG 
UNLOAD THE HEAD 

UPDATE 

FLAGS 
TIME OUT CONSTANT 
DO THE HOME 

COMMAND 
TRACK ZERO BIT 



; ERROR FLAG 



TEST FOR 

SECTOR ZERO 
ERROR FLAG 

TEST FOR 

SECTOR 
TOO LARGE 

; SAVE 



TEST FOR 
TRACK 
TOO LARGE 

;SAVE 



cp/m macro assem 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 







* 

ISSUE 






E53B 


32E4E6 




STA 


ECOUNT+1 


E53E 


CDADE7 




CALL 


MEASUR 


E541 


0E01 


I SLOOP 


MVI 


C,l 


E543 


79 




MOV 


A,C 


E544 


32FEE3 




STA 


SECREG 


E547 


3AF8E6 




LDA 


SECTOR 


E54A 


B9 




CMP 


C 


E54B 


C8 




RZ 




E54C 


3E80 




MVI 


A, RCMD 


E54E 


CD78E7 




CALL 


COMAND 


E551 


DAC7E5 




JC 


PLEAVE 


E554 


0C 




INR 


C 


E555 


C343E5 


COMNDP 


JMP 


I SLOOP 


E558 


32FCE3 




STA 


CMDREG 


E55B 


48 




MOV 


C,B 


E55C 


11FFE3 




LXI 


D, DATREG 


E55F 


2AE7E6 




LHLD 


DMAADR 


E562 


C9 


WRITE 


RET 




E563 


CDD4E5 




CALL 


PREP 


E566 


DAC9E5 


WRENTRY 


JC 


LEAVE 


E569 


3EA0 




MVI 


A,WCMD 


E56B 


CD58E5 


WRLOOP 


CALL 


COMNDP 


E56E 


7E 




MOV 


A,M 


E56F 


23 




I NX 


H 


E570 


12 




STAX 


D 


E571 


7E 




MOV 


A,M 


E572 


23 




I NX 


H 


E573 


12 




STAX 


D 


E574 


7E 




MOV 


A,M 


E575 


23 




I NX 


H 


E576 


12 




STAX 


D 


E577 


0D 




DCR 


C 


E578 


7E 




MOV 


A,M 


E579 


23 




I NX 


H 


E57A 


12 




STAX 


D 


E57B 


C26EE5 




JNZ 


WRLOOP 


E57E 


2169E5 




LXI 


H, WRENTRY 


E581 


C3A2E5 


READ 


JMP 


CBUSY 


E584 


CDD4E5 




CALL 


PREP 


E587 


DAC9E5 


RDENTRY 


JC 


LEAVE 


E58A 


3E80 




MVI 


A, RCMD 


E58C 


CD58E5 


RDLOOP 


CALL 


COMNDP 


E58F 


1A 




LDAX 


D 



; UPDATE COUNT 
;FIND THE INDEX 
; START W/ SECTOR 1 

INITIALIZE THE 
SECTOR REGISTER 

TEST FOR 
TARGET SECTOR 

DO A FAKE 

READ COMMAND 
ABORT ON ERROR 
INCREMENT SECTOR NO. 



DO THE COMMAND 
INITIALIZE BLOCK COUNT 
DATA REGISTER 
TRANSFER ADDRESS 



; PREPARE FOR WRITE 
; ABORT OPERATION 

; START A WRITE 

; SECTOR OPERATION 

LOAD 1ST BYTE OF DATA 

ADVANCE POINTER 

WRITE 1ST BYTE OF DATA 

LOAD 2ND BYTE OF DATA 

ADVANCE POINTER 

WRITE 2ND BYTE OF DATA 

LOAD 3RD BYTE OF DATA 

ADVANCE POINTER 

WRITE 3RD BYTE OF DATA 

REDUCE BLOCK COUNT 

LOAD 4TH BYTE OF DATA 

ADVANCE POINTER 

WRITE 4TH BYTE OF DATA 

WRITE NEXT 4 BYTES 

RETURN ENTRY ADDRESS 



; PREPARE FOR READ 
; ABORT OPERATION 

; START A READ 

? SECTOR OPERATION 

;READ 1ST BYTE 



CP/M MACRO ASSEM 2.! 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E590 


77 


MOV 


M, A ; 


STORE 1ST BYTE 


E591 


23 


I NX 


H 


ADVANCE POINTER 


E592 


1A 


LDAX 


D ; 


READ 2ND BYTE 


E593 


77 


MOV 


M,A ; 


STORE 2ND BYTE 


E594 


23 


I NX 


H ; 


ADVANCE POINTER 


E595 


1A 


LDAX 


D ; 


READ 3RD BYTE 


E596 


77 


MOV 


M,A ; 


STORE 3RD BYTE 


E597 


23 


I NX 


H ; 


ADVANCE POINTER 


E598 


0D 


DCR 


C ; 


REDUCE BLOCK COUNT 


E599 


1A 


LDAX 


D ; 


READ 4TH BYTE 


E59A 


77 


MOV 


M,A j 


STORE 4TH BYTE 


E59B 


23 


I NX 


H ; 


ADVANCE POINTER 


E59C 


C28FE5 


JNZ 


RDLOOP ; 


READ NEXT 4 BYTES 


E59F 


218AE5 


LXI 


H, RDENTRY ; 


RETURN ENTRY ADDRESS 




CBUSY 






E5A2 


E5 


PUSH 


H ; 


SAVE RETURN ADDRESS 


E5A3 


21FCE3 


LXI 


H,CSTAT ; 


WAIT FOR THE 1791 


E5A6 


CD87E7 


CALL 


BUSY ; 


TO FINISH COMMAND 


E5A9 


E65F 


AN I 


137Q ; 


ERROR BIT MASK 


E5AB 


CAC8E5 


JZ 


LEAVE -1 ; 


TEST 


E5AE 


FE10 


CPI 


10H ; 


PREMATURE INTERRUPT 


E5B0 


C2C7E5 


JNZ 


PLEAVE ; 


•OTHER ERROR TYPE 


E5B3 


3AE3E6 


LDA 


ECOUNT 


•DECREMENT ERROR 


E5B6 


3D 


DCR 


A 


• COUNT NUMBER 1 


E5B7 


FABEE5 


JM 


STEST 


•HARD INTERRUPT ERROR 


E53A 


32E3E6 


STA 


ECOUNT 


UPDATE COUNT 


E5BD 


C9 


RET 




•DO OPERATION OVER 




STEST 






E5BE 


3AE4E6 


LDA 


ECOUNT+1 ; 


•DECREMENT ERROR 


E5C1 


3D 


DCR 


A 


• COUNT NUMBER 2 


E5C2 


F23BE5 


JP 


ISSUE 


•ISSUE A COMMAND 


E5C5 


3E10 


MVI 


A,10H 


•IRRECOVERABLE ERROR 




P LEAVE 






E5C7 


37 


STC 




•ERROR FLAG 


E5C8 


El 


POP 


H 


•ADJUST THE STACK 




LEAVE 






E5C9 


F5 


PUSH 


PSW 


;SAVE THE FLAGS 


E5CA 


3AF6E6 


LDA 


DC REG 


rl791 CONTROL BITS 


E5CD 


EE10 


XRI 


LOAD 


f TOGGLE THE 


E5CF 


CDF1E7 


CALL 


SCBITS 


? HEAD LOAD BITS 


E5D2 


Fl 


POP 


PSW 


■RECOVER THE FLAGS 


E5D3 


C9 

* 


RET 








* 

PREP 






E5D4 


CD00E7 


CALL 


HDLOAD 


fLOAD THE HEAD 


E5D7 


D8 


RC 




?DISK NOT READY? 


E5D8 


3AFDE3 


LDA 


TRKREG 


?GET THE OLD TRK 


E5DB 


3C 


INR 


A 


?TEST FOR HEAD 


E5DC 


CC14E5 


CZ 


HENTRY 


; NOT CALIBRATED 


E5DF 


D8 


RC 




?SEEK ERROR? 


E5E0 


21FDE3 


LXI 


H, TRKREG 


? PRESENT TRK 


E5E3 


3AF9E6 


LDA 


TRACK 


;THE NEW TRACK 


E5E6 


BE 


CMP 


M 


? TEST FOR HEAD MOTION 


E5E7 


23 


I NX 


■H: 


? ADVANCE TO THE 


E5E8 


23 


I NX 


H 


7 DATA REGISTER 



cp/m macro ass EM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E5E9 


77 


MOV 


M,A 


E5EA 


79 


MOV 


A,C 


E5EB 


CDF1E7 


CALL 


SCBITS 


E5EE 


CA08E6 


JZ 


TVERFY 


E5F1 


AF 


XRA 


A 


E5F2 


32E9E6 


STA 


HDFLAG 


E5F5 


CDF5E7 


CALL 


LDSTAT 


E5F8 


E608 


AN I 


DSIDE 


E5FA 


IF 


RAR 




E5FB 


IF 


RAR 




E5FC 


IF 


RAR 




E5FD 


C618 


ADI 


SKCMD 


E5FF 


210000 


LXI 


H,0 


E602 


CD7DE7 


CALL 


CENTRY 


E605 


DA2EE6 


JC 


SERROR 




TVERFY 




E608 


3AE9E6 


LDA 


HDFLAG 


E60B 


B7 


ORA 


A 


E60C 


C259E6 


JNZ 


CHKSEC 


E60F 


0602 


MVI 


B,2 




SLOOP 




E611 


3E1D 


MVI 


A, SVCMD 


E613 


CD78E7 


CALL 


COMAND 


E616 


E699 


AN I 


231Q 


E618 


57 


MOV 


D,A 


E619 


CA35E6 


JZ 


RDHDR 


E61C 


3AF6E6 


LDA 


DC REG 


E61F 


EE01 


XRI 


DENSTY 


E621 


32F6E6 


STA 


DC REG 


E624 


EE02 


XRI 


ACCESS 


E626 


CDF1E7 


CALL 


SCBITS 


E629 


05 


DCR 


B 


E62A 


C211E6 


JNZ 


SLOOP 


E62D 


7A 


MOV 


A,D 




SERROR 




E62E 


37 


STC 




E62F 


F5 


PUSH 


PSW 


E630 


CD14E5 


CALL 


HENTRY 


E633 


Fl 


POP 


PSW 


E634 


C9 


RET 






RDHDR 




E635 


060A 


MVI 


B,12Q 




RHLOOP 




E637 


11FFE3 


LXI 


D,DATREG 


E63A 


21FAE6 


LXI 


H,TRACK+1 


E63D 


3EC4 


MVI 


A, RACMD 


E63F 


32FCE3 


STA 


CMDREG 




RHL1 




E642 


1A 


LDAX 


D 


E643 


77 


MOV 


M, A 


E644 


2C 


INR 


L 


E645 


C242E6 


JNZ 


RHL1 


E648 


21FCE3 


LXI 


H,CSTAT 


E64B 


CD87E7 


CALL 


BUSY 


E64E 


B7 


ORA 


A 


E64F 


CA59E6 


JZ 


CHKSEC 



SAVE THE NEW TRK 
TURN OFF DATA 

ACCESS CONTROL BIT 
TEST FOR SEEJ 
FORCE A READ 

HEADER OPERATION 
GET THE 

DOUBLE 

FLAG 

TO DO 3 MS 

STEP OPERATION 

DO A SEEK 
COMMAND 

SEEK ERROR? 

GET THE FORCE 

VERIFY TRACK FLAG 
NO SEEK & HEAD OK 
VERIFY RETRY NO 

DO A VERIFY 

COMMAND 
ERROR BIT MASK 
SAVE 

NO ERROR 
1791 CONTROL REG 
FLIP THE DENSITY BIT 
UPDATE 

CHANGE DENSITY 
DEC RETRY COUNT 

AND TRY AGAIN 
RESTORE ERROR BITS 

ERROR FLAG 
SAVE THE STATUS 
SEEK TO TRACK 
RECOVER ERRORS 



; NUMBER OF RETRYS 

DATA REGISTER 
STORAGE AREA 
DO THE READ 

HEADER COMMAND 

;GET A DATA BYTE 
; STORE IN MEMORY 
;INC MEM POINTER 
-;TEST FOR MORE DATA 
;WAIT FOR 1791 
;TO FINISH CMD 
?TEST FOR ERRORS 
; TRANSFER OK? 



CP/M MACRO ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E652 


05 




DCR 


B 


DEC RETRY COUNT 


E653 


C237E6 




JNZ 


RHLOOP ; 


TEST FOR 


E656 


C32EE6 


CHKSEC 


JMP 


SERROR 


HARD ERROR 


E659 


3AFDE6 




LDA 


SECLEN 


GET THE SECTOR 


E65C 


4F 




MOV 


C,A ; 


SIZE AND SETUP 


E65D 


0600 




MVI 


B,0 ; 


THE OFFSET 


E65F 


21DFE6 




LXI 


H, STABLE ; 


SEC SIZE TBL 


E662 


09 




DAD 


B ; 


ADD THE OFFSET 


E663 


3AF8E6 




LDA 


SECTOR ; 


GET THE SECTOR 


E666 


47 




MOV 


B,A ; 


SAVE IN B 


E667 


86 




ADD 


M 


COMPARE W/ TABLE ENTRY 


E668 


3E10 




MVI 


A,20Q ; 


ERROR FLAG 


E66A 


D8 




RC 




'ERROR RETURN 


E66B 


78 




MOV 


A,B 


•SAVE THE SECTOR 


E66C 


32FEE3 




STA 


SECREG 


* IN SECTOR REG 


E66F 


3E20 




MVI 


A,40Q 


•128 BYTE SECTOR 


E671 


210505 




LXI 


H,505H 


•INITIALIZE 


E674 


22E3E6 


SZLOOP 


SHLD 


ECOUNT 


• ERROR COUNTS 


E677 


0D 




DCR 


C 


•REDUCE SIZE COUNT 


E678 


47 




MOV 


B,A 


•SECTOR SIZE TO B 


E679 


F8 




RM 




r RETURN ON MINUS 


E67A 


17 




RAL 




r DOUBLE THE COUNT 


E67B 


B7 




ORA 


A 


•CLEAR THE CARRY 


E67C 


C377E6 


* 
* 

SIDEFX 


JMP 


SZLOOP 




E67F 


79 




MOV 


A,C 


?GET THE SIDE BIT 


E680 


E601 




AN I 


1 


?TRIM EXCESS BITS 


E682 


17 




RAL 




;MOVE THE BIT 


E683 


17 




RAL 




; TO THE SIDE 


E684 


17 




RAL 




; SELECT BIT 


E685 


17 




RAL 




? POSITION 


E686 


32F7E6 




STA 


SIDE 


;SAVE 


E689 


C9 


TOEND 
* 


RET 






E68A 




* 


DS 


330H-TOEND+DBOOT 


-66Q 


E6CA 




* 
* 

STACK 
* 

* 

STABLE 


DS 


25Q 




E6DF 


E5 




DB 


345Q 




E6E0 


E5 




DB 


345Q 




E6E1 


F0 




DB 


360Q 




E6E2 


F7 


* 


DB 


367Q 




E6E3 


0000 


* 

ECOUNT 


DW 





; ERROR COUNT CELLS 


E6E5 


0030 


TIMER 


DW 


3000H 


;HEAD LOAD TIME 



cp/m macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E6E7 


8000 


DMAADR 


DW 


200Q 


E6E9 


00 


HDFLAG 


DB 





E6EA 


FE 


DRVSEL 


DB 


376Q 


E6EB 


00 


DISK 


DB 





E6EC 


08 


CDISK 


DB 


10Q 


E6ED 


00 


TZFLAG 


DB 





E6EE 


03 


D0PRAM 


DB 


3 


E6EF 


FF 


D0TRK 


DB 


377Q 


E6F0 


03 


D1PRAM 


DB 


3 


E6F1 


FF 


D1TRK 


DB 


377Q 


E6F2 


03 


D2PRAM 


DB 


3 


E6F3 


FF 


D2TRK 


DB 


377Q 


E6F4 


03 


D3PRAM 


DB 


3 


E6F5 


FF 


D3TRK 


DB 


377Q 


E6F6 


03 


DC REG 


DB 


3 


E6F7 


00 


SIDE 


DB 





E6F8 


03 


SECTOR 


DB 


3 


E6F9 


00 


TRACK 


DB 





E6FA 


00 


TRKNO 


DB 





E6FB 


00 


SIDENO 


DB 





E6FC 


00 


SECTNO 


DB 





E6FD 


00 


SECLEN 


DB 





E6FE 


00 


CRCLO 


DB 





E6FF 


00 


CRCHI 
* 

* 
HDLOAD 


DB 





E700 


21EBE6 




LXI 


H,DISK 


E703 


4E 




MOV 


C,M 


E704 


23 




I NX 


H 


E705 


5E 




MOV 


E,M 


E706 


71 




MOV 


M,C 


E707 


23 




I NX 


H 


E708 


7B 




MOV 


A,E 


E709 


B9 




CMP 


C 


E70A 


7E 




MOV 


A,M 


E70B 


3604 




MVI 


M,HEAD 


E70D 


23 




INX 


H 


E70E 


CA36E7 




JZ 


HDCHK 


E711 


E5 




PUSH 


H 


E712 


1600 




MVI 


D,0 


E714 


42 




MOV 


B,D 


E715 


19 




DAD 


D 


E716 


19 




DAD 


D 


E717 


3AF6E6 




LDA 


DC REG 


E71A 


77 




MOV 


M,A 


E71B 


23 




INX 


H 


E71C 


11FDE3 




LXI 


D,TRKREG 


E71F 


1A 




LDAX 


D 


E720 


77 




MOV 


M,A 


E721 


El 




POP 


H 


E722 


09 




DAD 


B. 


E723 


09 




DAD 


B 


E724 


7E 




MOV 


A,M 


E725 


32F6E6 




STA 


,PCREG 


E728 


23 




INX 


H 



DMA ADDRESS 
READ HEADER FLAG 
DRIVE SELECT CONSTANT 
NEW DRIVE 
CURRENT DRIVE 
TRACK ZERO INDICATOR 
DRIVE PARAMETERS 
DRIVE TRACK NO 
DRIVE 1 PARAMETERS 
DRIVE 1 TRACK NO 
DRIVE 2 PARAMETERS 
DRIVE 2 TRACK NO 
DRIVE 3 PARAMETERS 
DRIVE 3 TRACK NO 
CURRENT PARAMETERS 
NEW SIDE SELECT 
NEW SECTOR 
NEW TRACK 
DISK 

SECTOR 

HEADER 

DATA 

BUFFER 



;NEW DISK NO TO C 

CURRENT DISK TO E 
UPDATE CURRENT DISK 
ADDR OF DISK TABLE 
TEST FOR 

DISK CHANGE 
HEAD LOAD FLAG 
UPDATE HEAD LOAD 
ADDR OF DISK TABLE 
NO DISK CHANGE? 
SAVE TABLE ADDRESS 
SET UP THE 

OFFSET ADDRESS 
GET THE CURRENT 

DISK PARAMETERS 
SAVE THE 
DENSITY INFO 
CURRENT TRACK 

;GET CURRENT TRK 

;SAVE 

; RECOVER TBL ADDR 

;ADD THE 

OFFSET 
;GET CONTROL BITS 
; UPDATE DCREG 
;GET THE OLD 



cp/m macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E729 


7E 


MOV 


A,M 


E72A 


12 


STAX 


D 


E72B 


3E7F 


MVI 
DSROT 


A,177Q 


E72D 


07 


RLC 




E72E 


0D 


DCR 


C 


E72F 


F22DE7 


JP 


DSROT 


E732 


32EAE6 


STA 


DRVSEL 


E735 


AF 


XRA 
HDCHK 


A 


E736 


CDF9E7 


CALL 


LOADS 


E739 


A6 


ANA 


M 


E73A 


32E9E6 


STA 


HDFLAG 


E73D 


F5 


PUSH 


PSW 


E73E 


3AEAE6 


LDA 


DRVSEL 


E741 


4F 


MOV 


C,A 


E742 


3AF7E6 


LDA 


SIDE 


E745 


2F 


CMA 




E746 


Al 


ANA 


C 


E747 


CDE9E7 


CALL 


SDSEL 


E74A 


3AF6E6 


LDA 


DC REG 


E74D 


4F 


MOV 


C,A 


E74E 


3AF9E6 


LDA 


TRACK 


E751 


D601 


SUI 


1 


E753 


9F 


SBB 


A 


E754 


3D 


DCR 


A 


E755 


2F 


CMA 




E756 


Bl 


ORA 


C 


E757 


77 


MOV 


M, A 


E758 


EE02 


XRI 


ACCESS 


E75A 


4F 


MOV 


C,A 


E75B 


Fl 


POP 


PSW 


E75C 


C26AE7 


JNZ 


RDYCHK 


E75F 


E5 


PUSH 


H 


E760 


2AE5E6 


LHLD 
TLOOP 


TIMER 


E763 


2B 


DCX 


H 


E764 


7C 


MOV 


A,H 


E765 


B5 


ORA 


L 


E766 


C263E7 


- JNZ- 


TLOOP 


E769 


El 


POP 
RDYCHK 


H 


E76A 


7E 


MOV 


A,M 


E76B 


E620 


ANI 


READY 


E76D 


C8 


RZ 
UNLOAD 




E76E 


3AF6E6 


LDA 


DC REG 


E771 


F618 


ORI 


ULOAD 


E773 


77 


MOV 


M,A 


E774 


3E80 


MVI 


A,200Q 


E776 


37 


STC 




E777 


C9 


RET 
* 

* 

COMAND 





E778 2AE5E6 



LHLD 



TIMER 



; TRACK NUMBER 
;AND UPDATE 1791 
;DISK SELECT BITS 

ROTATE TO 

SELECT THE 
PROPER DRIVE 

SAVE 

FORCE HEAD LOAD 



TEST FOR 

HEAD LOADED 
SAVE THE HEAD 

LOADED STATUS 
GET CURRENT DRIVE 
SAVE 

GET CURRENT SIDE 
AND MERGE 

WITH DRIVE SELECT 
SELECT DRIVE & SIDE 
1791 CONTROL BITS 
SAVE 

GET THE NEW TRK 
FORCE SINGLE 

DENSITY 

IF TRACK = 
COMPLIMENT 

MERGE W/ CONTROL BITS 
SET 1791 CONTROL 
TOGGEL ACCESS BIT 
SAVE PREP ROUTINE 
HEAD LOAD STATUS 
CONDITIONALLY 

WAIT FOR HEAD 

LOAD TIME OUT 

7 COUNT DOWN 
; 40 MS FOR 
HEAD LOAD 
«; TIME OUT 
;DISK STATUS ADDR 

j TEST FOR 

; DISK READY 



FORCE A 

HEAD 

UNLOAD 
SET DISK 

NOT READY 

ERROR FLAG 



;GET INDEX COUNT 



CP/M MACRO ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E77B 


29 




DAD 


H 


E77C 


29 


CENTRY 


DAD 


H 


E77D 


EB 




XCHG 




E77E 


21FCE3 




LXI 


H,CSTAT 


E781 


77 


NBUSY 


MOV 


M,A 


E782 


7E 




MOV 


A,M 


E783 


IF 




RAR 




E784 


D282E7 


BUSY 


JNC 


NBUSY 


E787 


7E 




MOV 


A,M 


E788 


IF 




RAR 




E789 


7E 




MOV 


A,M 


E78A 


D0 




RNC 




E78B 


IB 




DCX 


D 


E78C 


7A 




MOV 


A,D 


E78D 


B3 




ORA 


E 


E78E 


C287E7 




JNZ 


BUSY 


E791 


5E 




MOV 


E,M 


E792 


E5 




PUSH 


H 


E793 


23 




I NX 


H 


E794 


56 




MOV 


D,M 


E795 


E3 




XTHL 




E796 


D5 




PUSH 


D 


E797 


EB 




XCHG 




E798 


CDF9E7 




CALL 


LOADS 


E79B 


3AF6E6 




LDA 


DC REG 


E79E 


EE04 




XRI 


RSTBIT 


E7A0 


77 




MOV 


M,A 


E7A1 


EE04 




XRI 


RSTBIT 


E7A3 


EB 




XCHG 




E7A4 


12 




STAX 


D 


E7A5 


36D0 




MVI 


M,CLRCMD 


E7A7 


Dl 




POP 


D 


E7A8 


El 




POP 


H 


E7A9 


72 




MOV 


M f D 


E7AA 


7B 




MOV 


A,E 


E7AB 


37 




STC 




E7AC 


C9 


* 
* 

MEASUR 


RET 




E7AD 


110000 




LXI 


D,0 


E7B0 


CDF9E7 




CALL 


LOADS 


E7B3 


0E10 


INDXHI 


MVI 


C, INDEX 


E7B5 


7E 




MOV 


A,M 


E7B6 


Al 




ANA 


C 


E7B7 


C2B5E7 


INDXl 
INDXLO 


""JNZ 


INDXHI 


E7BA 


7E 


■ . [ • : i.-' 


MOV 


A,M ,. 


E7BB 


Al 




ANA 


C 


E7BC 


CABAE7 


INDX2 
INDXCT 


JZ 


INDXLO 


E7BF 


13 




INX 


D 



; AND MULTIPLY 
; BY FOUR 

;SAVE IN D-E PAIR 
y ISSUE COMMAND 
;TO THE 1791 

WAIT 

FOR THE 
BUSY FLAG 



TEST FOR 

DEVICE BUSY 
RESTORE STATUS 
RETURN IF NOT BUSY 
TEST FOR 

TWO DISK 
REVOLUTIONS 
47 MACHINE CYCLES 
SAVE ERROR CODE 
SAVE CMD ADDRESS 
TRACK REGISTER 
SAVE PRESENT TRACK 
RECOVER CMD REG. 
SAVE STATUS 
ADJUST REGISTERS 
GET CONTROL REG 
1791 CONTROL BITS 
RESET THE 1791 
CONTROLLER TO 
CLEAR FAULT 
ADJUST REGISTERS 
START CONTROLLER 
FORCE AN INTERRUPT 
RECOVER STATUS 
RECOVER TRACK REG 
RESTORE TRACK 
RESTORE ERROR CODE 
ERROR FLAG 



INITIALIZE COUNT 

; STATUS PORT 

; INDEX BIT FLAG 

WAIT FOR 
INDEX 
PULSE LOW 

WAIT FOR, 
INDEX 
PULSE HIGH 



; ADVANCE COUNT 



cp/m macro ASSEM 2.0 
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*** Cold Boot Loader for CP/M Ver. 2.2 *** 



E7C0 E3 




XTHL 




E7C1 E3 




XTHL 




E7C2 E3 




XTHL 




E7C3 E3 




XTHL 




E7C4 7E 




MOV 


A,M 


E7C5 Al 




ANA 


C 


E7C6 C2BFE7 


INDX3 


JNZ 


INDXCT 


E7C9 C9 


* 
* 

DENFIX 


RET 




E7CA 79 




MOV 


A,C 


E7CB E601 




ANI 


1 


E7CD 2F 




CMA 




E7CE 47 




MOV 


B,A 


E7CF 21EBE6 




LXI 


H,DISK 


E7D2 5E 




MOV 


E,M 


E7D3 1600 




MVI 


D,0 


E7D5 23 




I NX 


H 


E7D6 7E 




MOV 


A,M 


E7D7 AB 




XRA 


E 


E7D8 F5 




PUSH 


PSW 


E7D9 23 




I NX 


H 


E7DA 23 




I NX 


H 


E7DB 19 




DAD 


D 


E7DC 19 




DAD 


D 


E7DD 7E 




MOV 


A,M 


E7DE F601 




ORI 


1 


E7E0 A0 




ANA 


B 


E7E1 77 




MOV 


M,A 


E7E2 Fl 




POP 


PSW 


E7E3 C0 




RNZ 




E7E4 7E 




MOV 


A,M 


E7E5 32F6E6 




STA 


DCREG 


E7E8 C9 


* 
* 
SDSEL 


RET 




E7E9 32FAE3 




STA 


DREG 


E7EC C9 


LUSTAT 


RET 




E7ED 3AFAE3 




LDA 


USTAT 


E7F0 C9 


SCBITS 


RET 




E7F1 32F9E3 




STA 


DCMD 


E7F4 C9 


LDSTAT 


RET 




E7F5 3AF9E3 




LDA 


DSTAT 


E7F8 C9 


LOADS 


RET 




E7F9 21F9E3 




LXI 


H, DSTAT 


E7FC C9 
E7FD 




RET 

ENDIF 
END 





FOUR 

DUMMY 

INSTRUCTIONS 

FOR DELAY 
WAIT 

FOR NEXT 

LOW INDEX 
98 MACHINE CYCLES 



TRIM EXCESS 

BITS, 

COMPLIMENT 

B AND SAVE 
NEW DISK 
GET DISK NO 
OFFSET ADDR 
CURRENT DISK 
MOVE TO ACC 
COMPARE W/NEW 
SAVE STATUS 
DISK TABLE 

ADDRESS 
ADD THE 
OFFSET 

GET PARAMETERS 
MASK OFF DENSITY 
SET NEW DENSITY 
UPDATE 

CHECK FOR ND=CD 
NEW DISK NOT OLD 
UPDATE CDISK 

ALSO 



;DRIVE SELECT REG 



;UART STATUS REG 



;1791 CONTROL REG 



? DRIVE STATUS REG 



; DRIVE STATUS REG 



cp/m macro ASSEM 2.0 
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0002 


ACCESS 


E468 


BDISK 


E467 


BDRVSEL 


9000 


BIAS 


CD00 


BIOS 


E433 


BOOT 


E3C6 


BOTBIAS 


E02A 


BOTERR 


E460 


BTBLE 


E461 


BTIMER 


E7S7 


BUSY 


E5A2 


CBUSY 


B700 


CCP 


E6EC 


CDISK 


E1B2 


CDMA124 


E08B 


CDMA256 


E10B 


CDMA512 


E77D 


CENTRY 


E659 


CHKSEC 


E1AD 


CLOD124 


E086 


CLOD256 


E106 


CLOD512 


00D0 


CLRCMD 


E3FC 


CMDREG 


E192 


CMOV124 


E778 


COMAND 


E55S 


COMNDP 


E1DE 


CR124 


E0B9 


CR256 


E139 


CR512 


E6FF 


CRCHI 


E6FE 


CRCLO 


E1DB 


CRD124 


E0B6 


CRD256 


El 36 


CRD512 


E3FC 


CSTAT 


E200 


CSTK124 


E100 


CSTK2 56 


E180 


CSTK512 


E6EE 


D0PRAM 


E6EF 


D0TRK 


E6F0 


D1PRAM 


E6F1 


D1TRK 


E6F2 


D2PRAM 


E6F3 


D2TRK 


E6F4 


D3PRAM 


E6F5 


D3TRK 


E3FF 


DATREG 


E400 


DBOOT 


E3F9 


DCMD 


E6F6 


DC REG 


E7CA 


DENFIX 


0001 


DENSTY 


E6EB 


DISK 


E4AE 


DISKST 


E400 


DJBOOT 


E403 


DJCIN 


E406 


DJCOUT 


E42D 


DJDEN 


E412 


DJDMA 


E424 


DJDMAST 


E42A 


DJERR 


E409 


DJHOME 


E400 


DJRAM 


E415 


DJREAD 


E40F 


DJSEC 


E41B 


DJSEL 


E430 


DJSIDE 


E427 


DJSTAT 


E40C 


DJTRK 


E421 


DJTSTAT 


E418 


DJWRITE 


E4E5 


DMA 


E6E7 


DMAADR 


E4F7 


DMASET 


E424 


DMAST 


E4D2 


DMSTAT 


E386 


DOCOLD 


E015 


DOREAD 


E3A4 


DOWARM 


E415 


DREAD 


E3FA 


DREG 


E4DA 


DRIVE 


E6EA 


DRVSEL 


0008 


DSIDE 


E42A 


DSKERR 


E72D 


DSROT 


E43C 


DSRT 


E3F9 


DSTAT 


E418 


DWRITE 


E6E3 


ECOUNT 


E003 


FIRMLOD 


0000 


FIRST 


E477 


FIXIO 


E03D 


FREAD 


E027 


GETSTAT 


0009 


HCMD 


E736 


HDCHK 


E6E9 


HDFLAG 


E700 


HDLOAD 


0004 


HEAD 


E514 


HENTRY 


E4FE 


HOME 


0010 


INDEX 


E7B7 


INDX1 


E7BC 


INDX2 


E7C6 


INDX3 


E7BF 


INDXCT 


E7B5 


INDXHI 


E7BA 


INDXLO 


E3F8 


10 


E543 


I SLOOP 


E53B 


ISSUE 


0004 


I STAT 


E7F5 


LDSTAT 


E5C9 


LEAVE 


001E 


LIGHT 


0010 


LOAD 


E7F9 


LOADS 


E7ED 


LUSTAT 


0002 


MAXFLOP 


0001 


MAXHD 


0003 


MDINT 


E7AD 


MEASUR 


E392 


MLOOP 


E43E 


MODELA 


E457 


MODELM 


E311 


MOV124 


E291 


MOV512 


0038 


MSIZE 


E782 


NBUSY ~ 


E019 


NEWDMA 


E004 


NEWSEC 


00 3E 


NOLITE 


E011 


NOWRAP 


E032 


NOWRP 


2900 


OFFSETB 


E000 


ORIGIN 


0008 


OSTAT 


E5C7 


PLEAVE 


E5D4 


PREP 


E02D 


PUTDEN 


E012 


PUTDMA 


E009 


PUTHOM 


E00F 


PUTSEC 


E00C 


PUTTRK 


00C4 


RACMD 


E400 


RAM 


0080 


RCMD 


E58A 


RDENTRY 


E635 


RDHDR 


E58F 


RDLOOP 


E76A 


RDYCHK 


E584 


READ 


0020 


READY 


E3E3 


REED 


E3E6 


REED1 


00 0A 


RETRIES 


E642 


RHL1 


E637 


RHLOOP 


E000 


ROM 


0004 


RSTBIT 


E7F1 


SCBITS 


E7E9 


SDSEL 


E6FD 


SECLEN 


E3FE 


SECREG 


E525 


SECSET 


E6FC 


SECTNO 


E6F8 


SECTOR 


E5 3 2 


SEEK 


E41B 


SELDRV 


E62E 


SERROR 


E42D 


SETDEN 


E412 


SETDMA 


E40F 


SETSEC 


E430 


SETSID 


E67F 


SIDEFX 


E6F7 


SIDE 


E6FB 


SIDENO 


0018 


SKCMD 


E611 


SLOOP 


E6DF 


STABLE 


E080 


STAC 


E6DF 


STACK 


E427 


STATUS 


E5BE 


STEST 


E400 


STK 


001D 


SVCMD 


E677 


SZLOOP 


E403 


TERMIN 


E6E5 


TIMER 


E409 


TKZERO 


E763 


TLOOP 


E68A 


TOEND 


E41E 


TPANIC 


E6F9 


TRACK 


E6FA 


TRKNO 


E3E4 


TRKNUM 


E3FD 


TRKREG 


E40C 


TRKSET 


E406 


TRMOUT 


E421 


TSTAT 


E608 


TVERFY 


0004 


TZERO 


E6ED 


TZFLAG 


E3F8 


UDATA 


0018 


ULOAD 


E76E 


UNLOAD 


E3FA 


US TAT 


00A0 


WCMD 


E32D 


WDMA124 


E20B 


WDMA256 


E2AD 


WDMA512 


E328 


WLOD124 


E206 


WLOD256 


E2A8 


WLOD512 


E359 


WR124 


E239 


WR256 


E2D9 


WR512 


E356 


WRD124 


E236 


WRD256 


E2D6 


WRD512 


E569 


WRENTRY 


E563 


WRITE 


E56E 


WRLOOP 


E02E 


WRP 


E380 


WSTK124 


E280 


WSTK256 


E300 


WSTK512 







